home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / xdme_1.84_bin.lha / XDME / test < prev    next >
Encoding:
Text File  |  1994-12-06  |  7.4 KB  |  268 lines
  1. print ($(*Texts*/#0/*Name*))
  2.  
  3. set i 0 256 (flag \$i 0 inc i)
  4. flag 0 0 flag 1 1             ping 1 down
  5. flag 2 0                    down
  6. set i 3 repeat 100 (flag \$i 0 inc i )          down
  7. flag 4 1 flag 5 1                down
  8. set    gxx hallo title gxx$gxx         down
  9. setenv    exx hallo title exx$exx         down
  10. settvar txx hallo title txx$txx         down
  11. setmacro tx 0 (smv mxx hallo title mxx\$mxx) tx down
  12. set gxx hallo title $gxx         pong 1
  13.  
  14. setmacro ha 1 ( inc ha ) set ha 0 999 (ha 1) title $ha
  15. map c-x (qualifier x)
  16. map xs-a (title XShiftA)
  17.  
  18. map a-a (spc shortlines on join spc shortlines off)
  19.  
  20. title $txtfontname down
  21. title $txtfontsize down
  22. title $menufontname down
  23. title $menufontsize down
  24.  
  25.  
  26. set xx (hahaha)    title $xx down
  27. insvar xx c=1 hoho title $xx down
  28. remvar xx c=3 4    title $xx up
  29. remvar xx w=1 4    title $xx
  30. set xx (this is a bad test) remvar xx w=4 4 title $xx
  31.  
  32. menuoff
  33. spc menufontname topaz.font
  34. spc menufontsize 8
  35. menuon
  36. menuadd test test ...
  37.  
  38. set xx alpha 5 (pushvar xx) set xx beta purgevar xx popvar xx title $xx
  39.  
  40. setmacro xx 1 (title \$arg1) xx hallo
  41.  
  42. Deflist ls  addnode ls head xx xx-in-ls down
  43. loadgtbproject     t unnamed.gui        down
  44. opengtbwindow     t d            down
  45. connectgtbgadget t d a *Texts*        down
  46. connectgtbgadget t d b ls        down
  47. connectgtbgadget t d c ls        down
  48. dropgtbproject     t
  49.  
  50. setgtbgadget t win st bubuhhh        down
  51. setgtbgadget t win nm 10        down
  52. setgtbgadget t win sl 10        down
  53. setgtbgadget t win sc 10        down
  54. setgtbgadget t win pa 0         down
  55. setgtbgadget t win in 10        down
  56. setgtbgadget t win cy 1         down
  57. setgtbgadget t win lv 0         down
  58. setgtbgadget t win cb 1         down
  59. setgtbgadget t win tx hallihallo    down
  60.  
  61.  
  62.  
  63. Deflist hallo                down
  64. loadgtbproject fr Macros/f&r.gui    down
  65. connectgtbgadget fr cnt logs hallo  down
  66. opengtbwindow fr cnt            2 down
  67. closegtbwindow fr cnt
  68. set cnt 1 5 (AddNode hallo tail \$cnt (dummy) inc cnt)
  69. AddNode hallo head hahaha (this is a test) down
  70. AddNode hallo head hohoho (this is a test) up
  71. RemNode hallo head
  72. _Showlist hallo
  73. _Showlist *RefPaths*
  74. _Showlist *MenuStrips*
  75. _Showlist *KeyTables*
  76. _Showlist *GTBProjects*/t/win
  77. #_ShowList *Texts*
  78. rempath ()
  79. connectgtbgadget fr cnt rpath *RefPaths*
  80. opengtbwindow fr cnt
  81.  
  82. loadgtbproject fr Macros/f&r.gui
  83. dropgtbproject fr
  84. opengtbwindow fr Replace
  85. setmacro fr-Replace-replace 1 (set _replace (\$arg1))
  86. setmacro fr-Replace-find    1 (set _find    (\$arg1))
  87. setmacro fr-Replace-ok        0 (closegtbwindow fr Replace findr \$_find \$_replace)
  88. setmacro fr-Replace-cancel  0 (closegtbwindow fr Replace set _find \$findstr set _replace \$repstr )
  89.  
  90. opengtbwindow fr fr
  91. setmacro fr-fr-Replace      1 (set _replace \$arg1)
  92. setmacro fr-fr-Find      1 (set _find    \$arg1)
  93. setmacro fr-fr-Direction  1 (set _dir     \$arg1)
  94. setmacro fr-fr-do      0 (closegtbwindow fr fr findstr \$_find repstr \$replace)
  95. setmacro fr-fr-do_cancel  0 (closegtbwindow fr fr set _find \$findstr set _replace \$repstr)
  96. setmacro fr-fr-do_find      0 (fr-fr-do ifelse \$_dir prev  next)
  97. setmacro fr-fr-do_replace 0 (fr-fr-do ifelse \$_dir prevr nextr)
  98. setmacro fr-fr-do_repall  0 (fr-fr-do top repeat -1 nextr)
  99. setgtbgadget fr fr Find  $findstr
  100. setgtbgadget fr fr Replace $repstr
  101.  
  102.  
  103.  
  104.  
  105.  
  106. spc norequest to
  107.  
  108. map a-a (title \$recentword)
  109. menucheck al pha (title hallo)
  110. menugetcheck al pha inter
  111. menusetcheck al pha 1
  112. menusubcheck ep si lon ( title hallo)
  113. menugetscheck    ep si lon inter
  114. menusetscheck    ep si lon 0
  115. menugetcheck   ep si^Slon inter
  116. menusetcheck   ep si^Slon 0
  117.  
  118. force tr (alibaba)
  119. showlog
  120.  
  121.  
  122. debug 1
  123. toggle viewmode
  124. flag viewmode toggle
  125. SPC_viewmode = toggle
  126. SPC_iconmode = toggle
  127. debug 0
  128.  
  129. #test fuer simptr
  130.  
  131. 5 (simptr 200  40 tomouse)
  132. 5 (simptr 200 200 tomouse)
  133. 5 (simptr 200  10 tomouse)
  134. 5 (simptr 650  60 tomouse)
  135. 5 (simptr 650  70 tomouse)
  136. 5 (simptr 1    80 tomouse)
  137.  
  138.  
  139. # verschiedene Tests fuer Doubleclicked Buttons
  140.  
  141. map L-lmb (tomouse title EINS...)
  142. map L-lm2 (scanf %s title ZWEI...)
  143. map L-lm3 (ctags title DREI...)
  144. map L-lm4 (title VIER...)
  145. map L-mm2 (title FUENF?????????)
  146. map L-lm2 (title ZWEI...)
  147.  
  148. map L-lm2 (ctags)
  149.  
  150. # do_if <- das kann fuer ctags genommen werden ...
  151.  
  152. addpath autodoc:39
  153. #AddTail <- das kann fuer refs genommen werden ...
  154.  
  155.  
  156.  
  157. # verschiedene Tests fuer "R"epeat Qualifier
  158.  
  159.  
  160.  
  161. # einmal mit einem Threshold ...
  162.  
  163. unset remove
  164. unset noremove
  165. set   trremove 6
  166.  
  167. setmacro delthresh 1 (ifelse \\\$noremove (dec noremove abort) (set noremove \$trremove eval \$arg1 delcond))
  168. setmacro delcond   0 (ifelse ca (set remove ca) (set remove !ca))
  169.  
  170. map    -del (delcond      del)
  171. map   r-del (delthresh () while $\remove del ur-del)
  172. map  ur-del (u-del set noremove $trremove)
  173. map   u-del (set remove 0 set noremove 0)
  174.  
  175. map    -bs  (left -del)
  176. map   r-bs  (delthresh left while $\remove (del left) right ur-del)
  177. map  ur-bs  (ur-del)
  178. map   u-bs  (u-del)
  179.  
  180. set   remove 0
  181. set noremove 0
  182.  
  183. #original:
  184. #map    -del (ifelse ca (set _remove ca) (set _remove !ca) del)
  185. #map   r-del (while $\_remove del u-del)
  186. #map  ur-del (u-del)
  187. #map   u-del (set _remove 0)
  188. #map    -bs  (left -del)
  189. #map   r-bs  (left while $\_remove (del left) right u-del)
  190. #map  ur-bs  (u-del)
  191. #map   u-bs  (u-del)
  192.  
  193. menuadd User SMake... (newwindow chfilename (*SCRATCH*) insfile (APIPE:script:mysmake ) modified off viewmode on)
  194.  
  195. # Request.c
  196. reqfile     (XDME Request File)   (sp) $filename                                    title $reqresult
  197. reqnumber   (XDME Number Request) (Please input a number) (OK|CANCEL) 42 0 256      title $reqresult
  198. reqstring   (XDME String Request) (Please input a string) (OK|CANCEL) zwoundvierzig title $reqresult
  199. reqpalette  (XDME Select Color)   $tfpen                                            title $reqresult
  200. request     (XDME Request) (Machen Sie eine Wahl) (OK|Naja|Cancel)                  title $reqresult
  201.  
  202. # cmdsh.c
  203.  
  204. title $cmdshell
  205. SPC_cmdshellname   = (KCON:0/0/640/100/XDME Command Shell)
  206. SPC_cmdshellprompt = (xdme[%f]:)
  207. SPC_errorsoncmdshell = toggle
  208. closecmdshell
  209. opencmdshell
  210. menuadd User cmdshell opencmdshell
  211.  
  212. menuadd test test (newwindow reqload
  213. test-test
  214.  
  215.  
  216. settoggle 5
  217. if g5 (resettoggle 5 unblock bstart) tomouse bend
  218. force d (title \$5 settoggle 5 title \$5 resettoggle 5 title \$5 toggle 5 title \$5)
  219.  
  220. spc appicon toggle
  221. spc appicondropaction  (request (TAHAA) (Da bin ich mir zu schade für!) (0))
  222. spc appiconclickaction (request (TAHAA) (Stör' jemand' anderen!) (0))
  223. appicon = toggle
  224.  
  225. spc cmdshell to
  226. spc shortlines to
  227.  
  228. bottom 5 (insline first 55 .) blocktype c
  229.  
  230.  
  231. map -0x0c (title deadkey)
  232. map sM-0x0e (title 0x0e)
  233. map sM-0x1c (title 0x1c)
  234. map sM-0x2c (title 0x2c)
  235. map sM-0x3b (title 0x3b)
  236. map sM-0x47 (title 0x47)
  237. map sM-0x48 (title 0x48)
  238. map sM-0x49 (title 0x49)
  239. map sM-0x4b (title 0x4b)
  240. map sM-0x60 (title 0x60) rem LSHIFT
  241. map sM-0x61 (title 0x61)
  242. map sM-0x62 (title 0x62)
  243. map sM-0x63 (title 0x63)
  244. map sM-0x64 (title 0x64)
  245. map sM-0x65 (title 0x65)
  246. map sM-0x66 (title 0x66)
  247. map sM-0x67 (title 0x67)
  248. map sM-0x68 (title 0x68)
  249. map sM-0x69 (title 0x69)
  250. map sM-0x6a (title 0x6a)
  251. map sM-0x6b (title 0x6b)
  252. map sM-0x6c (title 0x6c)
  253. map sM-0x6d (title 0x6d)
  254. map sM-0x6e (title 0x6e)
  255. map sM-0x6f (title 0x6f)
  256.  
  257. downadd blocktype c map a-a (deline redisplay) 10 (first insline (....................)
  258.  
  259.  
  260. map a-a (spc shortlines on reformat spc shortlines off)
  261. s.kj sgfdlk wrpgi #üwfgg ewgrk öflsdj fdglökjs rgäje eglkj xgölekj relkj xyelkj lerkgj xöelkjgfx elkjgrx lkejr gxlkejrt xölk xlkj3er lk3x 3lktjxö935t xöj3 5txj 3.ltjcx .l3k4jt xc.lk3jt xc.lk3tj 5c.t3klkj 5xc.lktj53 .lkj4t .clt3kjc .tlkk53jct.lk3jc t.l3kj
  262.  
  263.  
  264.  
  265.  
  266.  
  267. ö4ijcx ö4jt gcxäo3 cx 3gxc-lj3 x-l4kjgc-3l4kjgc -lk4jg3xc -lk4jxc3-l4kj cx3-lj cx-lj35ojgc-o3jt5 gcx-3o5j c-o35z o--3ot x5§Ö%k c3Ö%Thk 3li4jtc -l3o5j c3ö-o5 x-öok5x-ozj hx-xo5özj -o6j h-3öo xc-lxoj3 5-hoc 5xc-o5-x -3j5ouc x3-o xc-3ocxj -3zhojcx 3-5zjxc
  268.